* lisp/emacs-lisp/comp.el (comp-func): Fix doc for blocks slot.

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index a7da7d42e9c9ec728420e5cf093f89d1678ec274..d860fa31f0b4e16b27fb4e57f57975dafa1ba708 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -368,8 +368,7 @@ Once in SSA form this *must* be set to 'dirty' every time the topology of the
 CFG is mutated by a pass.")
   (frame-size nil :type number)
   (blocks (make-hash-table) :type hash-table
-          :documentation "Key is the basic block symbol value is a comp-block
-structure.")
+          :documentation "Basic block name -> basic block.")
   (lap-block (make-hash-table :test #'equal) :type hash-table
              :documentation "LAP lable -> LIMPLE basic block name.")
   (edges () :type list